home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Updates / AmigaOS3.5 / IPop / IPop.rexx < prev    next >
OS/2 REXX Batch file  |  2000-05-16  |  2KB  |  160 lines
  1. /* IPop demo and documentation script */
  2.  
  3. /****** IPop/VERSION **************************************
  4.    NAME
  5.       VERSION
  6.  
  7.    SYNOPSIS
  8.       result = VERSION
  9.  
  10.    FUNCTION
  11.       returns the version string
  12.  
  13.    INPUTS
  14.       none
  15.  
  16.    RESULT
  17.       result - returns the version string of IPop
  18.  
  19. **************************************************************************
  20.  
  21. */
  22.  
  23. /****** IPop/AUTHOR **************************************
  24.    NAME
  25.       AUTHOR
  26.  
  27.    SYNOPSIS
  28.       result = AUTHOR
  29.  
  30.    FUNCTION
  31.       returns the author information
  32.  
  33.    INPUTS
  34.       none
  35.  
  36.    RESULT
  37.       result - returns the author string of IPopCx
  38.  
  39. **************************************************************************
  40.  
  41. */
  42.  
  43. /****** IPop/QUIT **************************************
  44.  
  45.    NAME
  46.       QUIT
  47.  
  48.    SYNOPSIS
  49.       void = QUIT
  50.  
  51.    FUNCTION
  52.       quits the application
  53.  
  54.    INPUTS
  55.       none
  56.  
  57.    RESULT
  58.       none
  59.  
  60. **************************************************************************
  61.  
  62. */
  63.  
  64. /****** IPop/CHECK **************************************
  65.  
  66.    NAME
  67.       CHECK TIME/N
  68.  
  69.    SYNOPSIS
  70.       void = QUIT
  71.  
  72.    FUNCTION
  73.       Sets the check time, or forces a pop check.
  74.  
  75.    INPUTS
  76.       TIME = sets time in minutes between pop intervals
  77.       none = force pop check
  78.  
  79.    RESULT
  80.       none
  81.  
  82. **************************************************************************
  83.  
  84. */
  85.  
  86. /****** IPop/WAITING **************************************
  87.  
  88.    NAME
  89.       WAITING
  90.  
  91.    SYNOPSIS
  92.       RC = WAITING
  93.  
  94.    FUNCTION
  95.       Returns the number of waiting messages.
  96.  
  97.    INPUTS
  98.       none
  99.  
  100.    RESULT
  101.       result = number of waiting messages
  102.  
  103. **************************************************************************
  104.  
  105. */
  106.  
  107. /****** IPop/QUIET **************************************
  108.  
  109.    NAME
  110.       QUIET
  111.  
  112.    SYNOPSIS
  113.       result = QUIET
  114.  
  115.    FUNCTION
  116.       Toggles the pop window
  117.  
  118.    INPUTS
  119.       none
  120.  
  121.    RESULT
  122.       result - 0 enabled, 1 disabled
  123.  
  124. **************************************************************************
  125.  
  126. */
  127.  
  128. options results
  129.  
  130. ADDRESS IPOP.1
  131.  
  132. say 'Setting check time to 0 minute.'
  133. ADDRESS IPOP.1 'CHECK TIME=1'
  134. say 'Press any key to continue...'
  135. pull anykey
  136.  
  137. say 'Checking POP...'
  138. CHECK
  139.  
  140. WAITING
  141. say 'Waiting: 'RC
  142.  
  143. Call mywait()
  144. VERSION
  145. say 'Version: 'RESULT
  146.  
  147. Call mywait()
  148. AUTHOR
  149. say ' Author: 'RESULT
  150.  
  151. Call mywait()
  152. say 'Quitting..'
  153. QUIT
  154.  
  155. exit
  156.  
  157. mywait: procedure
  158.    address command 'c:wait 2'
  159.    return
  160.